<text>This splash screen should be used in all products using the Dialoger Runtime X's. It may be displayed at any time -- either as part of a startup process or within the stack's credits. For complete details, see the runtime license agreement.</text>
</content>
<content>
<layer>background</layer>
<id>28</id>
<text>cd btn id 6</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Picture "25525"</text>
</content>
<name>Splash</name>
<script></script>
</card>
card_6195.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 3cd btn id 4cd fld id 5cd btn id 7</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Scrolling Edit Text "Sometimes, in the course"Button "Hide Scrollbar"</text>
</content>
<content>
<layer>card</layer>
<id>5</id>
<text>Sometimes, in the course of human events it becomes necessary to type long passages of text for no reason at all. These passages must be somewhat coherent yet have not overall topic. It is therefore very difficult to accomplish effectively.</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog demonstrates the ability to change a text item from being scrolling to not while the dialog is being displayed.</text>
<script>on UnHit dialog, itemHit, partHit-- Created on: Monday, April 9, 1990global scrollShowingif itemHit = 0 then -- Initialize dialogput true into scrollShowingelse if itemHit = 1 then -- Button "OK"else if itemHit = 2 then -- Button "Cancel"else if itemHit = 4 then -- Button "Show Scrollbar"if scrollShowing thendChanger dialog,"4◊Show Scrollbar","3◊HideScroll"put false into scrollShowingelsedChanger dialog,"4◊Hide Scrollbar","3◊ShowScroll"put true into scrollShowingend ifend ifend UnHiton err dialog, errID-- Called for all non-fatal errors.answer "Error encountered:&&"errIDend err</script>
</card>
card_3518.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 1cd btn id 2cd btn id 6cd fld id 7cd fld id 8</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Custom Scrollbar "Scroll Bar"Editable Text ""Static Text "Value:"</text>
</content>
<content>
<layer>background</layer>
<id>20</id>
<text>Scroll Playground</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>Value:</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog illustrates the appearance and use of custom controls. Specifically, this one uses the Progress Box CDEF. To change the value of the control, click on the boxed area or enter a value between 1 and 100 into the editable text area.</text>
</content>
<name>Scroll Playground</name>
<script>on cntlHit dialog, itemHit, partHit-- Created on: Sunday, March 18, 1990if itemHit = 0 then -- Initialize dialogdChanger dialog,"0◊Color Yellow"--,"3◊Color Blue"else if itemHit = 1 then -- Button "OK"else if itemHit = 2 then -- Button "Cancel"else if itemHit = 3 then -- Custom Scrollbarget dContents(dialog,3)if partHit = 20 thendChanger dialog,"3◊"&it-1,"4◊"&dContents(dialog,3)else if partHit = 22 thendChanger dialog,"3◊"&it-10,"4◊"&dContents(dialog,3)else if partHit = 21 thendChanger dialog,"3◊"&it+1,"4◊"&dContents(dialog,3)else if partHit = 23 thendChanger dialog,"3◊"&it+10,"4◊"&dContents(dialog,3)else -- thumbdChanger dialog,"4◊"&itend ifelse if itemHit = 4 then -- Editable Text ""dChanger dialog, "3◊"&dContents(dialog,4)end ifend cntlHiton dumHit dialog, itemHit, partHit-- Created on: Monday, February 19, 1990if itemHit = 0 then -- Initialize dialogelse if itemHit = 4 then -- Custom Control "My Control"get dContents(dialog,4)if partHit = 20 thendChanger dialog,"4◊"&it-1,"6◊"&dContents(dialog,4)else if partHit = 22 thendChanger dialog,"4◊"&it-10,"6◊"&dContents(dialog,4)else if partHit = 21 thendChanger dialog,"4◊"&it+1,"6◊"&dContents(dialog,4)else if partHit = 23 thendChanger dialog,"4◊"&it+10,"6◊"&dContents(dialog,4)elsedChanger dialog,"6◊"&itend ifend ifend dumHit</script>
</card>
card_5014.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 1cd btn id 2cd btn id 9cd fld id 3cd fld id 5cd fld id 8cd fld id 10cd fld id 6cd btn id 11</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Button "Inactivate"List "One"Styled Editable Text ""PopUp "Red"Editable Text ""Static Text "Popup:"Button "LockText"</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>OneTwoThreeFourFiveSixSevenEightNine</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>Popup:</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>RedGreenBlueOrangeWhiteBlackPink</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This extremely ugly dialog illustrates two rather important features which where included at the last moment.LockText and UnlockText are commands in dChanger which change styled text from static to editable or visa-versa.Inactivate and Activate are commands in dChanger which gray-out its such that they may not be clicked on or typed into. The types of items which may be inactivated are; lists, popups and styled text. (These are in addition to buttons and controls which have always had this ability). Further details are available in the Help window.</text>
</content>
<name>Inactivator</name>
<script>on unHit dialog, itemHit, partHitglobal actBtn,lockText-- Created on: Tuesday, April 17, 1990if itemHit = 0 then -- Initialize dialogput empty into actBtnput empty into lockTextelse if itemHit = 1 then -- Button "OK"else if itemHit = 2 then -- Button "Cancel"else if itemHit = 3 then -- Button "Inactivate"if actBtn is empty thendChanger dialog,"3◊ Activate ","4◊inactivate","5◊inactivate","6◊inactivate"put "inact" into actBtnelsedChanger dialog,"3◊ Inactivate ","4◊activate","5◊activate","6◊activate"put empty into actBtnend ifelse if itemHit = 4 then -- List "One"else if itemHit = 5 then -- Styled Editable Text ""else if itemHit = 6 then -- PopUp "Red"else if itemHit = 9 then -- Button "LockText"if LockText is empty thendChanger dialog,"9◊ UnlockText ","5◊LockText"put "locked" into lockTextelsedChanger dialog,"9◊ LockText ","5◊UnLockText"put empty into lockTextend ifend ifend unHit</script>
</card>
card_6022.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 1cd btn id 2cd btn id 3cd btn id 4cd btn id 5cd btn id 6cd fld id 7cd btn id 8cd btn id 9cd fld id 10cd fld id 11cd fld id 12cd fld id 13cd fld id 14cd fld id 15cd fld id 16cd fld id 17</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Button "Motto…"Radio Button "Deep Disher"Radio Button "Thin’n Crispy"Checkbox "Home Deliveries"Editable Text "Example"Icon "24697"Picture "23011"List "Sausage"PopUp "Small"Styled Static Text "Peter’s Pizza Palace"Box (Black pen, None fill) " Style: "Box (Gray pen, None fill)Static Text "Size:"Static Text "Toppings:"Static Text "Name:"</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊This beautiful dialog is that which is used throughout the Help stack and in the manual.◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊◊</text>
<script>on exHit dialog, itemHit, partHit-- Created on: Sunday, January 6, 1991if itemHit = 0 then -- Initialize dialogdChanger dialog, "0◊Color Red","10◊Color Red"else if itemHit = 1 then -- Button "OK"else if itemHit = 2 then -- Button "Cancel"else if itemHit = 3 then -- Button "Motto…"else if itemHit = 4 then -- Radio Button "Deep Disher"else if itemHit = 5 then -- Radio Button "Thin’n Crispy"else if itemHit = 6 then -- Checkbox "Home Deliveries"else if itemHit = 9 then -- Picture "23011"else if itemHit = 10 then -- List "Sausage"else if itemHit = 11 then -- PopUp "Small"end ifend exHiton errHit dialog, errID-- Called for all non-fatal errors.answer "Error encountered:&&"errIDend errHit</script>
</card>
card_5589.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>Picture "27761"Static Text "Operation in progress… please be patient…"Custom ProgressBox "dkGray"</text>
</content>
<content>
<layer>background</layer>
<id>20</id>
<text>!Progress</text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text>Operation in progress… please be patient…</text>
</content>
<content>
<layer>background</layer>
<id>84</id>
<text>-- Move this dialog down to see progress window.Progress "Starting"Progress 25Progress 50Progress 75Progress 100Progress "Dismiss"</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog has a single HyperTalk handler associated with it. It allows you to keep the user informed of the progress of a lengthy operation. It does this by displaying a dialog with some informative message and a bar graph to visually represent the progress. Unlike other examples which take the form of HyperTalk functions that 1) display a dialog, 2) interact with the user, 3) dismiss the dialog and 4) report on that interaction, this example does not interact with the user at all. Instead, this handler should be called periodically to reflect the progress of the underlying task being monitored. When that task is complete, the handler must be called again to dismiss the dialog. The handler has the form:Progress «Text» | «Percent» | DismissWhere the first and only argument may be either «Text» which is the text to be displayed in the dialog or «Percent» which is the percent complete for the task (between 1 and 100) or the word "Dismiss" which dismisses the dialog. Note: there is no difference between calling this handler to display the progress dialog for the first time or merely to update its contents -- the handler figures out what is the correct course of action.To experiment with this dialog, click the Show button on the tool palette.</text>
<script>on Progress txtOrPct-- This procedure handles the display, updating and dimissing of-- a progress dialog. It accepts either text or a number as its-- single parameter. The text is displayed as a message in the-- dialog. The number is reflected in the bar graph and should-- be between 1 and 100. As your script progresses, update one or-- both of these values to keep the user informed.-- If the word "Dismiss" is passed into this handler, the dialog will-- be dismissed.get txtOrPctconvert it to dateItems -- will only work if it is a numberif it is txtOrPct then put "2◊"&txtOrPct into txtOrPctelse put "3◊"&txtOrPct into txtOrPctget dContents("!Progress")if it <> 0 thenif txtOrPct is "2◊Dismiss"then dChanger it,"0◊Dismiss"else dChanger it, txtOrPctelseget Dialoger("!Progress"&return&"Orphan",txtOrPct,"3◊Inactivate")end ifend Progress</script>
</card>
card_7353.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>This dialog has a single HyperTalk function associated with it. This function displays a dialog which allows the user to build a list of things. While handy of its own right, this function also uses some advanced Dialoger techniques that will be of interest to expert users. The syntax of the function is:Get MakeList(«Prompt»,«initialList»)Where «Prompt» is the text to be displayed in the dialog and «initialList» is the initial list of items to be displayed (each separated by a return).MakeList returns the text of the list that is built in the dialog.To experiment with this dialog, click the Show button on the tool palette.</text>
</content>
<name>!ListMaker</name>
<script>function makeList thePrompt, theList-- This function allows a user to modify a list-- or create an entirely new one-- the list is returned as the result of the functionglobal dList -- the list itself, used to communicate b/w the-- hit handler and this functionput return into CR-- set up the initial list as passed into the functionput theList into List1-- Now comes Dialoger!-- notice that we are putting the prompt text as replacement text-- we can do this since the DITL contains ^0 as the contents-- of the static text field above the list.-- Equivalently, we could have changed it in parameter 12.put Dialoger("!ListMaker"¬, thePrompt ¬, "0◊on makeListHit"¬, "4◊userList Chicago,12,SingleSelection" & CR & List1¬, "10◊userBox Gray"¬, "11◊userBox Gray"¬) into dResult-- If the user canceled, return nothingif first word of dResult is "Error:" thenanswer dResult with Cancelreturn emptyend ifreturn dListend makeListon makeListHit dialog,iglobal dListif i = 0 then-- initialization timedChanger dialog,"5◊Default","6◊Inactivate"¬, "7◊Inactivate", "8◊Inactivate","9◊Inactivate"else if i = 1 then -- the OK button-- since dialoger will only return the line numbers of the lines-- selected in the list, we need to use dContents here to get-- the complete list, which we pass back using the global dListput dContents(dialog,5,"all") into dListelse if i = 2 then -- the Cancel buttonput empty into dListelse if i = 3 then -- the editable text area-- we need to make some adjustments to the buttonsadjBtns4List dialog,ielse if i = 4 then -- the list-- we need to put the contents of the line clicked into the-- editable text fieldget dContents(dialog,4,"alt")dChanger dialog,"3◊"&it & return & "select"adjBtns4List dialog,ielse if i = 5 then -- the Add button-- we need to add it to the list and select the text in the-- editable text area so that the user can simply type in the-- next one without having to select it firstput dContents(dialog,3) into txtput dContents(dialog,4) into lnif ln is empty then put 1000 into lndChanger dialog,"3◊Select","4◊Add"&&ln & return & txtelse if i = 6 then -- the Replace Button-- we simply need to replace the contents of the selected list line-- with what the user has typed into the editable text fieldput dContents(dialog,3) into txtput dContents(dialog,4) into lnif ln is empty thenbeepexit makeListHitend ifdChanger dialog,"3◊Select","4◊Replace"&&ln & return & txtelse if i = 7 then -- the Delete button-- we need to delete the line from the list and then select the-- next in line so that the user can click delete againput dContents(dialog,3) into txtput dContents(dialog,4) into lnif ln is empty thenbeepexit makeListHitend ifdChanger dialog,"4◊Delete"&&ln & return & "Select"&&lnget dContents(dialog,4,"alt")dChanger dialog,"3◊"&it,"3◊Select"adjBtns4List dialog,ielse if i = 8 then -- the Up button-- we simply need to exchange the two list lines-- the swap command automatically handles trying to move-- line 1 upget dContents(dialog,4)if it is empty thenbeepexit makeListHitend ifdChanger dialog,"4◊swap"&&it-1&","&it & return & "Select"&&it-1else if i = 9 then -- down button-- we simply need to exchange the two list lines-- the swap command automatically handles trying to move-- the last line downget dContents(dialog,4)if it is empty thenbeepexit makeListHitend ifdChanger dialog,"4◊swap"&&it&","&it+1 & return & "Select"&&it+1end ifend makeListHiton adjBtns4List dialog,i-- the proc is used to adjust the activation of the various push-- buttons in accordance with the state of the dialogget dContents(dialog,3)if it is empty thenif dContents(dialog,3) is emptythen dChanger dialog,"5◊Inactivate","6◊Inactivate","7◊Inactivate","8◊Inactivate","9◊Inactivate"else dChanger dialog,"5◊Inactivate","6◊Inactivate","7◊Activate","8◊Activate","9◊Activate"elseif dContents(dialog,4) is emptythen dChanger dialog,"5◊Activate"&return&"Default","6◊Inactivate","7◊Inactivate","8◊Inactivate","9◊Inactivate"else dChanger dialog,"5◊Activate","6◊Activate"&return&"Default","7◊Activate","8◊Activate","9◊Activate"end ifend adjBtns4List</script>
</card>
card_7060.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 1cd btn id 2cd btn id 3cd fld id 4cd fld id 5cd fld id 6cd btn id 7cd fld id 8</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Button "Open…"Box (Gray pen, None fill)List ""Static Text "Icons"Button "New"Styled Static Text "Some Text"</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>Icons</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog has a HyperTalk function associated with it. It allows the user to choose an icon. This icon may be; 1) one of those initially displayed (those immediately available to this stack) or 2) from a stack explicitly opened by the user or 3) newly created by the user from a piece of card art. If needed, the icon is copied into the stack. The function takes the form: Put GetIcon(«Prompt») into IconIDWhere «Prompt» is the prompting message that appears above the list of icons.GetIcon returns the id of the icon selected by the user (or empty if none was).To experiment with this dialog, click the Show button on the tool palette.</text>
<script>function getIcon prompt-- This function returns the id of the icon selected by the user-- The icon may have been from this stack or from anywhere else-- It may even have been created in this function.global rID,fNameput return into CR-- ResIDList produces a list of the icon ids of the icons-- existing in this stack. Notes on its use appear in the-- Advances Note section of the helpput "userList icons" & CR & resIDList(stackFileName(),"ICON") into list1-- Time for Dialoger!put Dialoger("!GetIcon" & CR & "on getIconHit"¬, "4◊userBox Gray"¬, "5◊"&List1¬, "6◊"&prompt¬, "7◊Dismiss"¬, "8◊StyledText geneva,9"¬) into dResultif first word of dResult is "Error:" thenanswer dResult with Cancelexit getIconelse if line 1 of dResult is not empty thenif rID is not empty then-- an icon had been selectedget char 8 to 32767 of (long name of this stack)delete last char of itif (fname is not empty) and (it <> fName) thenresCopyQuick fName,it,"ICON",rIDif first word of the result is "Error:" thenanswer result() with Cancelexit getIconelse if the result is not emptythen put the result into rIDend ifend ifreturn rIDelse if line 7 of dResult is not empty then-- We get to create a new icon!ask "Name for new icon:"if it is empty then exit getIcongo cdget iMaker("",it)return itend ifend getIconon getIconHit dialog,iglobal fNum,fName,rIDif i=0 then-- initialize all the globalsput empty into fNum -- a reference number used by ResFileOpenput empty into fName -- the name of the Opened fileput empty into rID -- the id of the selected icondChanger dialog,"5◊SingleSelection","7◊Dismiss","8◊"else if i = 1 thenif fNum is not empty then-- close the resource file we had opened to display another-- file's icons.closeResFork(fNum)put empty into fNumend ifput dContents(dialog,5,"alt") into rIDelse if i = 2 thenif fNum is not empty then-- close the resource file we had opened to display another-- file's icons.closeResFork(fNum)put empty into fNumend ifelse if i = 3 then-- The open buttonif fNum is not empty then closeResFork(fNum)answer file "Please select file with desired icon."put it into fNameset cursor to arrowif fName is empty then exit getIconHitput openResFork(fName) into fNumget resIDList(fName,"ICON")put "new" & return before itput "ICONs in “"&shortFileName(fName)&"”" into lbldChanger dialog,"5◊"&it,"6◊"&lbl,"8◊"if the result is not empty thenanswer the result with Cancelexit getIconHitend ifelse if i = 5 thenget dContents(dialog,5,"alt")if it is not empty thenget rInfo("","ICON",it)if first word of it is not "Error:"then put "#"&it into txtelse put "Information unavailable" into txtelse put "" into txtdChanger dialog,"8◊"&txtend ifend getIconHitfunction shortFileName longFileNameput number of chars in longFileName into crepeat until c < 1 or char c of longFileName is ":"subtract 1 from cend repeatreturn char c + 1 to 32767 of longFileNameend shortFileName</script>
</card>
card_6568.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 1cd btn id 2cd fld id 3cd fld id 4</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"List "Red"Static Text "^0"</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>RedGreenBlueOrangeYellowWhiteMagenta</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>^0</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog has two HyperTalk functions associated with it. They allow you to present a list of choices to the user for selection. The two functions, Choice and Choices, differ only in the number of selections that the user may make; Choice allows only one while Choices allows any number:Get Choice(«Prompt»,«ChoiceList»)Where «Prompt» is the text to be displayed in the dialog and «ChoiceList» is the list of items to be displayed (each separated by a return).Choice (and its sister Choices) return the text of the selected line(s).To experiment with this dialog, click the Show button on the tool palette.</text>
</content>
<content>
<layer>background</layer>
<id>84</id>
<text>Put Choices("Please indicate the computers you currently own.","Apple" &return& "Compaq" &return& "IBM" &return& "Epson" &return& "Toshiba" &return& "Zenith")Put Choice("Please indicate your favorite computer.", "Apple" &return& "Compaq" &return& "IBM" &return& "Epson" &return& "Toshiba" &return& "Zenith")</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<name>!Choice</name>
<script>on myHit dialog, itemHit, partHit-- Created on: Tuesday, August 13, 1991if itemHit = 0 then -- Initialize dialogelse if itemHit = 1 then -- Button "OK"else if itemHit = 2 then -- Button "Cancel"else if itemHit = 3 then -- List "Red"else if itemHit = 4 then -- Static Text "^0"end ifend myHitfunction choice txt, list-- This format will allow only one selection from the list-- The "1" causes a double-click on the list to be interpreted as-- a click on the OK button (item 1).return ListDialog(1, txt, list)end choicefunction choices txt, list-- This format will allow multiple selections from the listreturn ListDialog("AnySelection", txt, list)end choicesfunction ListDialog logic, txt, list-- This function will display a dialog from which a single line of the-- list may be selected. The text of the line selected is returned.-- A shorthand for returnput return into CR-- Here's where we put up the dialogput Dialoger("!Choice"&CR&"KeyScrollItem 3"¬, txt¬, "userList Chicago,12,"&logic & CR & List¬) into dResult-- Make sure we don't have an error and return the resultif first word of dResult is "Error:" thenanswer dResult with Cancelexit to HyperCardelseif line 2 of dResult is empty then -- Cancel not clickedget line 3 of dResult -- selected list linesput empty into selectedLinesrepeat with i = 1 to number of items in itput line (item i of it) of list & return after selectedLinesend repeatdelete last char of selectedlinesreturn selectedLinesend ifend ifend ListDialog</script>
</card>
card_2486.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>This dialog has a single HyperTalk function associated with it. Similar to the command Ask, it allows you to request from the user a piece of information. This function differs in that it also provides a checkbox to elicit additional information. The function looks like:Get AskX(«Prompt», «Default», «Label», «Value»)Where «Prompt» is the text to be displayed above the editable text item and «Default» is to be offered as the default for the entry. «Label» sets the label of the checkbox while «Value» sets it to either true of false.AskX returns two lines of text. The first contains the contents of the editable text item and the second line contains either true or false depending on the state of the checkbox.To experiment with this dialog, click the Show button on the tool palette.</text>
</content>
<content>
<layer>background</layer>
<id>28</id>
<text>cd btn id 5cd btn id 6cd fld id 8cd fld id 7cd btn id 9</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Static Text "Prompt:"Editable Text ""Checkbox "Checkbox"</text>
<script>on HitMe dialog, itemHit, partHit-- Created on: Friday, September 13, 1991if itemHit = 0 then -- Initialize dialogelse if itemHit = 1 then -- Button "OK"else if itemHit = 2 then -- Button "Cancel"else if itemHit = 5 then -- Checkbox "Checkbox"end ifend HitMeon ErrMe dialog, errID-- Called for all non-fatal errors.answer "Error encountered:&&"errIDend ErrMefunction askX prompt,default,label,state-- This function will request a piece of information from the user-- The checkbox below the editable text item will-- be hidden if nothing is passed as argument 3 or 4if label & state is empty then put "hide" into labelget dialoger("!askX","",prompt,default,label&return&state)if word 1 of it is "error:" then answer it with "Cancel"return line 4 to 5 of itend askX</script>
</card>
card_2258.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 1cd btn id 2cd fld id 3cd fld id 5</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Static Text "Password:"Styled Editable Text ""</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>Password:</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog has a single HyperTalk function associated with it. Similar to the command Ask, it allows you to request from the user a piece of information. This function differs in that it masks the characters that are entered to provide security for password entry and such. The function looks like:Get AskPW(«Prompt»)Where «Prompt» is the text to be displayed above the editable text item. AskPW returns the text entered by the user. While displayed as bullets, the text returned is obviously the actual characters entered.To experiment with this dialog, click the Show button on the tool palette.</text>
</content>
<content>
<layer>background</layer>
<id>84</id>
<text>Put AskPW("Enter password please:")</text>
</content>
<name>!AskPassword</name>
<script>function askPW txt-- This function will request a password from the user-- The text entered will be displayed as bullets-- The Protected command does the work of masking-- the entry into item 4get dialoger("!askPassword","",txt,"Protected •")return line 4 of itend askPW</script>
</card>
card_4419.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>cd btn id 1cd btn id 2cd fld id 3cd fld id 4cd fld id 5cd fld id 6</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>Button "OK"Button "Cancel"Editable Text ""Editable Text ""Static Text "^0"Static Text "^1"</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog has a single HyperTalk function associated with it. Similar to the command Ask, it allows you to request from the user two pieces of information at once rather than only one. Get Ask2(«Prompt1», «Prompt2», «Default1», «Default2»)Where «Prompt1» is the text to be displayed above the first editable text item and «Default1» is to be offered as the default for the first entry. Likewise for «Prompt2» and «Default2». Ask2 returns two lines of text. The first contains the contents of the first editable text item and the second line the contents of the second.To experiment with this dialog, click the Show button on the tool palette.</text>
</content>
<content>
<layer>background</layer>
<id>84</id>
<text>Put Ask2("Please name at least two friends. Unless, of course you don't have any:!")Put Ask2("Favorite Color?","Favorite sport?","Red","Hockey")Put Ask2("Find:","Replace with:")</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<name>!Ask2</name>
<script>function ask2 Prompt1, Prompt2, Default1, Default2-- This function will display a dialog with two places to enter text-- Each may have its own prompt.-- The function returns either empty (when cancel was pressed)-- or the two answers, each on its own line-- Just a shorthand for returnput return into CR-- This padding with spaces simply places the prompt text on the-- appropriate line.if number of chars in Prompt1 < 30then put " "&¬" " before Prompt1-- The call to Dialoger - this is where the dialog gets displayedput Dialoger("!Ask2" ¬, Prompt1 & CR & Prompt2 ¬, Default1 ¬, Default2 ¬) into dResult-- Now we sort out what happenedif first word of dResult is "Error:" thenanswer dResult with Cancelexit to HyperCardelse if line 2 of dResult is not empty thenreturn emptyelsereturn (line 3 to 4 of dResult)end ifend ask2</script>
</card>
card_3765.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>Put Stop("You shouldn't be doing that", "Sorry", "So What")Put Note("This could be interesting", "OK")Put Caution("Are you sure?", "Yes", "No", "Cancel")</text>
</content>
<content>
<layer>background</layer>
<id>80</id>
<text>This dialog has three HyperTalk functions associated with it. They allow you to alert the user in a more conventional way about situations and choices that need to be made. It includes one of three icons and up to three buttons. Each icon corresponds to a HyperTalk function and reflect a different severity of alert (as represented by different icons). These functions are Note, Caution, and Stop. Their syntax and use is identical -- they differ only in the icon displayed:Get Note(«Text», «Btn1»,«Btn2»,«Btn3»)Where «Text» is the text to be displayed in the dialog and «btn1» through «btn3» allow you to specify the labels for up to three buttons.Note (and its sisters Caution and Stop) return the name of the button selected by the user.To experiment with this dialog, click the Show button on the tool palette.</text>
</content>
<content>
<layer>background</layer>
<id>83</id>
<text>false</text>
</content>
<name>!Alert</name>
<script>on hitMe dialog, itemHit, partHit-- Hit handler created on: Thursday, September 19, 1991if itemHit = 0 then -- Initialize dialogelse if itemHit = 1 then -- Button "No"else if itemHit = 2 then -- Button "Cancel"else if itemHit = 3 then -- Button "Yes"end ifend hitMefunction Caution txt, pushBtn1, pushBtn2, pushBtn3return alert("Caution", txt, pushBtn1, pushBtn2, pushBtn3)end Cautionfunction Note txt, pushBtn1, pushBtn2, pushBtn3return alert("Note", txt, pushBtn1, pushBtn2, pushBtn3)end Notefunction Stop txt, pushBtn1, pushBtn2, pushBtn3return alert("Stop", txt, pushBtn1, pushBtn2, pushBtn3)end Stopfunction alert lvl, txt, pushBtn1, pushBtn2, pushBtn3put return into CRif lvl is "Stop" then put "6◊Hide"&CR&"7◊Hide" into iconHiderelse if lvl is "Caution" then put "5◊Hide"&CR&"7◊Hide" into iconHiderelse if lvl is "Note" then put "5◊Hide"&CR&"6◊Hide" into iconHiderelse exit alertget paramCount()if pushBtn1 is empty thenput Dialoger("!Alert"¬, "1◊hide"¬, "2◊"&pushBtn1 & return & "Default" & return & "OK"¬, "3◊hide"¬, "4◊"&txt¬, iconHider) into dResultelse if pushBtn2 is empty thenput Dialoger("!Alert"¬, "1◊hide"¬, "2◊"&pushBtn1 & return & "Default"¬, "3◊hide"¬, "4◊"&txt¬, iconHider) into dResultelse if pushBtn3 is empty thenput Dialoger("!Alert"¬, "1◊"&pushBtn1 ¬, "2◊"&pushBtn2 ¬, "3◊hide"¬, "4◊"&txt¬, iconHider) into dResultelseput Dialoger("!Alert"¬, "1◊"&pushBtn2 ¬, "2◊"&pushBtn3 ¬, "3◊"&pushBtn1 & return & "Default" & return & "Dismiss" ¬, "4◊"&txt¬, iconHider) into dResultend ifif first word of dResult is "Error:"then exit to HyperCardrepeat with i = 1 to 3get line i of dResultif it is not empty then return itend repeatend alerton itemHitbeepend itemHit</script>
